  10 :return ;clear ;NT=0;BC=rnd (32)mul 8;FC=BC+4+rnd (32)mul 8
  20 print "** AMORTIZATION PROGRAM **
  25 for Z=0to 107;@(Z)=48;next Z;@(64)=50;@(65)=49
  30 print ;print "input PRINCIPAL";A=0;gosub 1000
  40 print "input INTEREST RATE";A=18;gosub 1000
  45 $div @(18),@(54),@(18)
  50 print "input MONTHLY PAYMENT";A=36;gosub 1000
  60 P=1;R=0;for Z=72to 89;@(Z)=48;next Z
  70 print "PAYMENT INTEREST PRINCIPAL
  75 for Z=54to 71;@(Z)=48;next Z
  80 print ;print #2,P,
 100 $mul @(0),@(18),@(90);$+@(90),@(54),@(54);$+@(90),@(72),@(72);A=90;gosub 4000
 140 $+@(90),@(0),@(90);$-@(90),@(36),@(0);A=0;gosub 4000;if R=1goto 230
 210 P=P+1;Q=Pdiv 12;if RM=0R=1
 220 goto 80
 230 R=0;P=P+1;print ;print "TOTAL INTEREST-YEAR ",#1,Pdiv 12;A=54;gosub 4000
 240 goto 75
1000 for Z=A+17to A+10step -1;@(Z)=KP;TV=@(Z);if @(Z)=46goto 1040
1010 if @(Z)=13@(Z)=48;goto 6000
1020 if @(Z)=31Z=Z+2
1030 next Z;print " TOO LARGE!";goto 5030
1040 @(Z)=KP;TV=@(Z);@(Z-1)=KP;TV=@(Z-1)
1050 print ;for C=Ato A+5;@(C)=48;next C
1060 for B=Z-1to A+17;@(C)=@(B);C=C+1;next B
1070 for B=Cto A+17;@(B)=48;next B;return 
4000 if @(A+17)=56goto 5000
4005 for Z=A+15to A+8step -1;if @(Z)#48print "  ",;goto 4020
4010 next Z;print "   ",;goto 4030
4020 for B=Zto A+8step -1;TV=@(B);next B
4030 print ".",;TV=@(A+7);TV=@(A+6);return 
5000 $+@(0),@(36),@(0)
5005 print "      0
5007 print ;print "YEAR'S TOTAL INTEREST:";A=54;gosub 4000
5010 print ;print "LAST PAYMENT:",;A=0;gosub 4000
5020 print ;print "TOT INTEREST:",;A=72;gosub 4000
5025 print ;print #3,Pdiv 12," YEAR",;if Pdiv 12#1print "S",
5026 print ",",#3,RM," MONTH",;if RM#1print "S",
5027 print 
5030 print "to RESTART-PRESS ANY KEY!
5040 if KPgoto 10
6000 print ;input "input # OF MONTHS"M
6005 if M<2goto 6000
6010 $mul @(18),@(0),@(36);$div @(54),@(54),@(54);$+@(18),@(54),@(90);$div @(90),@(90),@(72)
6020 print "COMPUTING!
6050 for Z=1to M;$div @(72),@(90),@(72);next Z
6080 $-@(72),@(54),@(72);$div @(36),@(72),@(36);@(60)=49;@(62)=48;$-@(36),@(54),@(36)
6100 @(53)=48;for Z=36to 41;@(Z)=48;next Z
6110 print "MONTHLY PAYMENT:";A=36;gosub 4000
6120 print ;return 
run 